
Namespace BusinessEntity
    ''' <summary>
    ''' When applied to a business entity class property, that property will participate in audit message creation.
    ''' </summary>
    <AttributeUsage(AttributeTargets.Property, AllowMultiple:=False, Inherited:=False)> Public NotInheritable Class AuditAttribute
        Inherits Attribute

#Region " Declarations "

        Private _intAuditSequence As Integer = 999999

#End Region

#Region " Properties "

        ''' <summary>
        ''' Get or sets the sort order that will be applied to this property when audit messages are created.  Default value is 999999.
        ''' </summary>
        Public ReadOnly Property AuditSequence() As Integer
            Get
                Return _intAuditSequence
            End Get
        End Property

#End Region

#Region " Constructor "

        ''' <summary>
        ''' Sort Order will default to 999999 when using this default constructor.
        ''' </summary>
        Public Sub New()
        End Sub

        Public Sub New(ByVal intAuditSequence As Integer)
            _intAuditSequence = intAuditSequence
        End Sub

#End Region

    End Class

End Namespace
